-- card: 4127 from stack: in.11_89
-- bmap block id: 4903
-- flags: 0000
-- background id: 4490
-- name: LImacSTACK Index
----- HyperTalk script -----
on openCard
  show cd btn "Who?"
  show cd btn "Help"
end openCArd

on closeCard

end closeCard


-- part 2 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=185 top=193 right=297 bottom=317
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 1024
-- line height: 16
-- part name: LIMac Info
----- HyperTalk script -----
on mouseUp
  push cd
  visual barn door close to black
  visual barn door open
  go cd "Schedule"
end mouseUp



-- part 3 (button)
-- low flags: 00
-- high flags: A000
-- rect: left=23 top=259 right=276 bottom=153
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 1024
-- line height: 16
-- part name: Random Shortcuts
----- HyperTalk script -----
on mouseUp
  push cd
  visual barn door close to black
  visual barn door open
  go cd "Shortcuts"
end mouseUp


-- part 5 (button)
-- low flags: 00
-- high flags: A000
-- rect: left=23 top=211 right=228 bottom=158
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 1024
-- line height: 16
-- part name: Studio/1
----- HyperTalk script -----
on mouseUp
  push cd
  visual barn door close to black
  visual barn door open
  go cd "studio/1"
end mouseUp



-- part 6 (button)
-- low flags: 00
-- high flags: A000
-- rect: left=348 top=259 right=276 bottom=482
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 1024
-- line height: 16
-- part name: Stacks
----- HyperTalk script -----
on mouseUp
  push cd
  visual barn door close to black
  visual barn door open
  go cd "stacks"
end mouseUp



-- part 8 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=469 top=27 right=48 bottom=497
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 9
-- style flags: 256
-- line height: 12
-- part name: New Button
----- HyperTalk script -----
on mouseUp
  visual iris open to white
  visual dissolve
  go stack "HOME"
end mouseUp



-- part 11 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=249 top=322 right=342 bottom=268
-- title width / last selected line: 0
-- icon id / first selected line: 1009 / 1009
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 1024
-- line height: 16
-- part name: Show Radio
----- HyperTalk script -----
on mouseUp
  push cd
  visual barn door close to black
  visual barn door open
  go card "Resource Lister"
end mouseUp


-- part 13 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=213 top=322 right=342 bottom=232
-- title width / last selected line: 0
-- icon id / first selected line: 1009 / 1009
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 1024
-- line height: 16
-- part name: Show TV
----- HyperTalk script -----
on mouseUp
  push cd
  visual barn door close to black
  visual barn door open
  go card "Resource Lister"
end mouseUp


-- part 21 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=444 top=58 right=93 bottom=494
-- title width / last selected line: 0
-- icon id / first selected line: 2478 / 2478
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Who?
----- HyperTalk script -----
on mouseUp
  set the visible of cd fld "Credits" to not the visible of cd fld "Credits"
end mouseUp



-- part 18 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=17 top=121 right=160 bottom=60
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Flash!
----- HyperTalk script -----
on mouseUp
  push cd
  visual zoom open
  go cd "bulletin board"
  play "boing" tempo 300 c5e e g c6 e c g5 e c
end mouseUp



-- part 23 (button)
-- low flags: 00
-- high flags: A000
-- rect: left=348 top=211 right=228 bottom=483
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 1024
-- line height: 16
-- part name: HyperTalk
----- HyperTalk script -----
on mouseUp
  push cd
  visual barn door close to black
  visual barn door open
  go cd "tips template"
end mouseUp



-- part 22 (field)
-- low flags: 81
-- high flags: 2004
-- rect: left=66 top=120 right=324 bottom=447
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Credits
----- HyperTalk script -----
on mouseUp
  hide me
end mouseUp


-- part 15 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=445 top=120 right=157 bottom=495
-- title width / last selected line: 0
-- icon id / first selected line: 1020 / 1020
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Help
----- HyperTalk script -----
on mouseUp
  push cd
  visual iris open
  go cd "Navigation Help"
end mouseUp



-- part 25 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=125 top=298 right=320 bottom=377
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: sends mouseUp
----- HyperTalk script -----
on mouseUp
  send mouseUp to cd btn "LIMac Info"
end mouseUp



-- part 27 (button)
-- low flags: 00
-- high flags: A000
-- rect: left=206 top=30 right=79 bottom=298
-- title width / last selected line: 0
-- icon id / first selected line: 29107 / 29107
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: LImacSTACK.11/89
----- HyperTalk script -----
on mouseUp
  -- by Tom Wimbish
  put the short name of the target into NAME
  answer "Paste this button into another stack?" with "No" or "Sure!"
  if it is "No" then exit mouseUp
  ask "Paste LImacSTACK's button into which stack?" with "Home"
  if it is empty then exit mouseUp
  put it into DeSt
  put "on mouseUp" & return into myScript
  put "go stack" & quote & NAME & quote & return after myScript
  put "end mouseUp" after myScript
  lock screen
  select the target
  doMenu "Copy Button"
  go stack deSt
  repeat with i = 1 to the number of btns
    if short name of btn i = NAME then
      go back
      choose browse tool
      answer "LImacSTACK's button is already there!"
      hide menuBar
      unlock screen with dissolve
      exit mouseUp
    end if
  end repeat
  doMenu "Paste Button"
  set the rect of btn NAME to 202,30,289,79
  set the showName of btn NAME to true
  choose browse tool
  set cursor to hand
  unlock screen
  get the mouseClick
  answer "Drag button to a comfy spot & click."
  repeat until the mouseClick
    set loc of btn NAME to the mouseLoc
  end repeat
  set the script of button NAME to myScript
end mouseUp



-- part contents for card part 22
----- text -----
This stack was constructed by
Kevin Moan
HyperCard SIG Leader
Long Island Macintosh User Group

Xthing Acknowledgments:
(see stack script)

© 1989 Kevin Moan
CIS:73210,2732 - GEnie:K.MOAN - MacNET:MOAN